home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinOnCD 1.xpl < prev    next >
Text File  |  2000-04-03  |  1KB  |  55 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Other Programs\WinOnCD"
  5. "NAME"="General"
  6. "VERSION"="1.01"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Eject CD after recording is finished"
  9. "DESCRIPTION 1"="Some options for CeQuadrats WinOnCD."
  10. "AUTHOR"="Xteq Systems"
  11. "CONTACTURL"="http://www.xteq.com"
  12. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All rights reserved."
  13. "COMMENT 1"=" "
  14.  
  15.  
  16. sPCheck="HKLM\Software\CeQuadrat\WinonCD\"
  17. sV1="HKLM\Software\CeQuadrat\WinonCD\Recorder\No Eject" 'STR: 1
  18.  
  19. Sub Plugin_Initialize 
  20. if RegPathExists(sPCheck) then
  21.    i=RegReadValue(sV1)
  22.    If IsEmpty(i)=true then
  23.       SetUIElement 1,true
  24.    else
  25.       if i=0 then 
  26.          SetUIElement 1,true
  27.       end if
  28.    end if
  29.   
  30. else
  31.    Disable()
  32. end if
  33. END SUB
  34.  
  35. 'Called when the Plugin should validate the Data the user has entered
  36. SUB Plugin_CheckData(ElementIndex)
  37. END SUB
  38.  
  39. 'Called when the Plugin should apply the changes
  40. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  b=GetUIElement(1)
  42.  if b=true then
  43.     s="0"
  44.  else
  45.     s="1"
  46.  end if
  47.  Call RegWriteValue(sV1,s,1)
  48.  
  49.  
  50. END SUB
  51.  
  52. 'Called when the Plugin is about to be removed from memory
  53. SUB Plugin_Terminate
  54. END SUB
  55.